object FormFecharComanda: TFormFecharComanda
  Left = 304
  Top = 336
  Width = 806
  Height = 614
  Caption = 'Fechar Pedido'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 769
    Height = 513
  end
  object Label1: TLabel
    Left = 24
    Top = 32
    Width = 65
    Height = 16
    Caption = 'Comanda: '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 568
    Top = 483
    Width = 57
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Total:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 232
    Top = 528
    Width = 137
    Height = 41
    Caption = 'Fechar Pedido(s)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 432
    Top = 528
    Width = 137
    Height = 41
    Caption = 'Cancelar'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Kind = bkCancel
  end
  object EditComanda: TEdit
    Left = 96
    Top = 24
    Width = 233
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyPress = EditComandaKeyPress
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 64
    Width = 729
    Height = 393
    DataSource = DataSource1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'comanda'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Comanda'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'data'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Data'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Width = 115
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'valor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Valor'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object StaticTextTotal: TStaticText
    Left = 632
    Top = 475
    Width = 121
    Height = 24
    AutoSize = False
    BevelKind = bkFlat
    BevelOuter = bvNone
    BorderStyle = sbsSunken
    Color = clInfoBk
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object cdsComanda: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 336
    Top = 208
    object cdsComandaid_pedido: TIntegerField
      FieldName = 'id_pedido'
    end
    object cdsComandacomanda: TIntegerField
      FieldName = 'comanda'
    end
    object cdsComandadata: TStringField
      FieldName = 'data'
      Size = 10
    end
    object cdsComandavalor: TStringField
      FieldName = 'valor'
    end
  end
  object DataSource1: TDataSource
    DataSet = cdsComanda
    Left = 288
    Top = 208
  end
  object QueryComanda: TQuery
    DatabaseName = 'DBPizza'
    SQL.Strings = (
      'select * from pedido'
      'where nr_comanda = :p_comanda'
      'and id_movimento = :p_id_movimento'
      'and id_st_pedido = 1')
    Left = 288
    Top = 128
    ParamData = <
      item
        DataType = ftInteger
        Name = 'p_comanda'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'p_id_movimento'
        ParamType = ptUnknown
      end>
  end
end
